home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / BBS / UEDIT4.ZIP / UEDIT422.ZIP / VC.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1996-03-13  |  2.1 KB  |  153 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.  
  26. ;------------------------------------------------------------------------------
  27.  
  28.     :LABEL001
  29.     Cls
  30.     Input "@X09Enter user's record number@X07", STRING001
  31.     If (STRING001 == "") Then
  32.         Stop
  33.     Else
  34.         Gosub LABEL002
  35.     Endif
  36.     :LABEL002
  37.     GetAltUser STRING001
  38.     Newlines 2
  39.     Input "@X0AEnter the conference you wish to view@X07", STRING002
  40.     Gosub LABEL003
  41.     :LABEL003
  42.     STRING003 = ConfReg(STRING002)
  43.     STRING004 = ConfExp(STRING002)
  44.     STRING005 = ConfSel(STRING002)
  45.     Select Case (STRING003)
  46.         Case "0"
  47.             STRING003 = "NO"
  48.         Case "1"
  49.             STRING003 = "YES"
  50.         Case Else
  51.             Newline
  52.             PrintLn "@X0CERROR! Aborting View conference@X07"
  53.             Stop
  54.     End Select
  55.     Select Case (STRING004)
  56.         Case "0"
  57.             STRING004 = "NO"
  58.         Case "1"
  59.             STRING004 = "YES"
  60.         Case Else
  61.             Newline
  62.             PrintLn "@X0CERROR! Aborting View conference@X07"
  63.             Stop
  64.     End Select
  65.     Select Case (STRING005)
  66.         Case "0"
  67.             STRING005 = "NO"
  68.         Case "1"
  69.             STRING005 = "YES"
  70.         Case Else
  71.             Newline
  72.             PrintLn "@X0CERROR! Aborting View conference@X07"
  73.             Stop
  74.     End Select
  75.     Cls
  76.     PrintLn "@X0B┌────────────┬──────────────┬──────────────┬───────────┬────────────┐@X07"
  77.     PrintLn "@X0B│  Record #  │  Conference  │  Registered  │  Expired  │  Selected  │@X07"
  78.     PrintLn "@X0B├────────────┴──────────────┴──────────────┴───────────┴────────────┤@X07"
  79.     PrintLn "@X0B  @X0A ", STRING001, "             ", STRING002, "              ", STRING003, "           ", STRING004, "           ", STRING005, "  @X07"
  80.     PrintLn "@X0B├────────────┬──────────────┬──────────────┬───────────┬────────────┤@X07"
  81.     PrintLn "@X0B│  Record #  │  Conference  │  Registered  │  Expired  │  Selected  │@X07"
  82.     PrintLn "@X0B└────────────┴──────────────┴──────────────┴───────────┴────────────┘@X07"
  83.     PutUser
  84.     Newlines 4
  85.     Wait
  86.     Input "@X0FDo you want to view another user's conference flags@X07", STRING006
  87.     Select Case (STRING006)
  88.         Case "Y"
  89.             Gosub LABEL001
  90.         Case "y"
  91.             Gosub LABEL001
  92.         Case Else
  93.             Stop
  94.     End Select
  95.  
  96. ;------------------------------------------------------------------------------
  97. ;
  98. ; Usage report (before postprocessing)
  99. ;
  100. ; ■ Statements used :
  101. ;
  102. ;    2       Cls
  103. ;    1       Wait
  104. ;    18      Goto 
  105. ;    9       Let 
  106. ;    10      PrintLn 
  107. ;    9       If 
  108. ;    3       Input 
  109. ;    1       PutUser
  110. ;    4       Gosub 
  111. ;    3       Newline
  112. ;    2       Newlines 
  113. ;    5       Stop
  114. ;    1       GetAltUser 
  115. ;
  116. ;
  117. ; ■ Functions used :
  118. ;
  119. ;    9       ==
  120. ;    9       !
  121. ;    1       ConfReg()
  122. ;    1       ConfExp()
  123. ;    1       ConfSel()
  124. ;
  125. ;------------------------------------------------------------------------------
  126. ;
  127. ; Analysis flags : WR
  128. ;
  129. ; W - Write user ■ 5
  130. ;     Program writes a user record. Although this may be normal for a
  131. ;     User Editor, it may also be a way to modify an account level.
  132. ;     ■ Search for : PUTUSER
  133. ;
  134. ; R - Read user ■ 5
  135. ;     User records are read, this may signify that someone wants to get
  136. ;     various informations about a user (for example his password), but
  137. ;     this may also be normal for a program accessing user records (for
  138. ;     example a User Editor)
  139. ;     ■ Search for : GETALTUSER
  140. ;
  141. ;------------------------------------------------------------------------------
  142. ;
  143. ; Postprocessing report
  144. ;
  145. ;    0       For/Next
  146. ;    0       While/EndWhile
  147. ;    1       If/Then or If/Then/Else
  148. ;    4       Select Case
  149. ;
  150. ;------------------------------------------------------------------------------
  151. ;                 AEGiS Corp - Break the routines, code against the machines!
  152. ;------------------------------------------------------------------------------
  153.